home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / UNIXTOOL / GNU / PERL / PERL5SRC.ZIP / !Perl / c / miniplmain < prev    next >
Text File  |  1995-06-28  |  853b  |  47 lines
  1. /*
  2.  * "The Road goes ever on and on, down from the door where it began."
  3.  */
  4.  
  5. #include "INTERN.h"
  6. #include "perl.h"
  7.  
  8. static void xs_init _((void));
  9. static PerlInterpreter *my_perl;
  10.  
  11. int
  12. main(int argc, char **argv)
  13. {
  14.     char *env[] = {"There","Is","No","Env","Array","ATM","Remind","Me","To","Fix","It",0};
  15.     int exitstatus;
  16.  
  17. #ifdef VMS
  18.     getredirection(&argc,&argv);
  19. #endif
  20.  
  21.     if (!do_undump) {
  22.     my_perl = perl_alloc();
  23.     if (!my_perl)
  24.         exit(1);
  25.     perl_construct( my_perl );
  26.     }
  27.  
  28.     exitstatus = perl_parse( my_perl, xs_init, argc, argv, env );
  29.     if (exitstatus)
  30.     exit( exitstatus );
  31.  
  32.     exitstatus = perl_run( my_perl );
  33.  
  34.     perl_destruct( my_perl );
  35.     perl_free( my_perl );
  36.  
  37.     exit( exitstatus );
  38. }
  39.  
  40. /* Register any extra external extensions */
  41.  
  42. static void
  43. xs_init()
  44. {
  45.     /* Do not delete this line--writemain depends on it */
  46. }
  47.